home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / tutorial / trac.zip / EX-II-1.OBJ < prev    next >
Text File  |  1990-01-16  |  1KB  |  39 lines
  1. 0010    401000 Read A(0) - A(4)
  2. 0011    401005 Read A(5) - A(9)
  3. 0012    001901 Load zero
  4. 0013    030002 Store at J
  5. 0014   2001000 Load A(J)
  6. 0015    031801 Store at S
  7. 0016    000002 Load J
  8. 0017    011902 Add 1
  9. 0018    030001 Store at I
  10. 0019   1001000 Load A(I)
  11. 0020    021801 Subtract S
  12. 0021    240023 If negative, skip next instruction
  13. 0022    260029 If positive or zero jump around interchange
  14. 0023    001801 Load S
  15. 0024    031802 Store at T
  16. 0025   1001000 Load A(I)
  17. 0026    031801 Store at S
  18. 0027    001802 Load T
  19. 0028   1031000 Store at A(I)
  20. 0029    000001 Load I
  21. 0030    011902 Add 1
  22. 0031    030001 Store at I
  23. 0032    021903 Subtract 10
  24. 0033    240019 If negative do loop again
  25. 0034    001801 Load S
  26. 0035   2031000 Store at A(J)
  27. 0036    000002 Load J
  28. 0037    011902 Add 1
  29. 0038    030002 Store at J
  30. 0039    021904 Subtract 9
  31. 0040    240014 If negative, repeat outer loop
  32. 0041    411000 Print A(0) - A(4)
  33. 0042    411005 Print A(5) - A(9)
  34. 0043    500000 Stop
  35. 1901         0 Constant zero
  36. 1902         1 Constant 1
  37. 1903        10 Constant 10
  38. 1904         9 Constant 9
  39. 9999    000010 End of code